Con log:"Setting up methods" from:"Array".
Repl methodIn: Array.
toString[
   ^ ((self length)>0) ifTrue:[||
       x <- StringBuffer new.
       x append: "Array(".
       (Range from:0 to: ((self length)-1)) do: [i:||
          x append: ((self at:i) toString).
          x append: ",".
       ].
       x append: ((self at: ((self length)-1)) toString).
       x append: ")".
       ^x toString.
    ] else:
    [|| ^ "Array()"].
]


